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: FACILITY: EXECUTIVE, PROCESS CONTROL SYSTEM SERVICES 
: : ABSTRA CT: 


THIS MODULE CONTAINS THE ROUTINES WHICH IMPLEMENT THE PROCESS 
CONTROL SERVICES, SUSPEND, RESUME, HIBERNATE AND WAKE. 
AUTHOR: 


R. HUSTVEDT 
MODIFIED BY: 
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nly allow ASTs if XQP thread is active. slau SUSPEN bit 
f pool allocation fails. 


v03-012 CWH301 CW Hobbs 27-Sep-1983 
In EXESIPID_TO_EPID treat a null IPID as a special case, 
and return the null. 


v03-011 Lsx0260 awrence J, Kongh 31-Aug 91985 
t the SUSPEN bit before lowering IPL to zero to insure 
+ the PCB of the target process has not disappeared. 


Make the SUSPND AST a regular kernel AST se that it oproperty 
interlocks with the XQP. Include the interlocking code. 


v03-010 CWH1007 Hobbs 14-May-1983 
nable the storing ¢ She actual cluster node” info in the 
igh bits of the EPID 
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v03-009 flbagy CW Hobbs 27-Apr-1983 
ange e pid conversion routines to do more checkin 
7 pid against pids stores in PCB. Bake sure tha 
consition codes reflect final value in RO. 


v03-008 LJK0197 Lawrence J. Kenah 25-Mar-1983 
Insure that all success paths raise IPL to SYNCH. 
v03-007 ACG0321 Andrew C. Goldstein, 24-Mar-1983 0:19 
Allow iaeettutiooss control over processes of equal UIC 
V03-006 ROW0168 Ralph 0. Weber 3-MAR-1983 
Change W* references to G*. 
v03-005 CWH1002 CW Hobbs 19-Feb-1982 
meerir ERESHAAP IS to use extended PIDs, add PID conversion 
outines: 
EXESIPID_TO_PCB - internal pid to pcb address 
EXESEPID_TO_PCB = extended pid to pcb address 
EXESIPID_TO_EPID - internal pid to extended pid 
EXESEPID_TO_IPID - extended pid to internal pid 
v03-004 ,seetes Lawrence J. K 22-0c t-1982 


not allow processes that aa Sine deleted to also 
be suspended. 


v03-003 eeeove Kathleen D. Morse 28-Jun-1982 
Change word displacement to longword. 
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£57 )* ACOA. PID CRS) ; Ha PID FOR AST 

R ; SET NULL PRIORITY INCREMENT 
SCHSQAST ; QUEUE KERNEL AST 

EXITN : EXIT WITH NORMAL STATUS 
#SS$_NONEXPR,RO ; RETURN ‘'NO SUCH PROCESS’ IF DELPEN 
EXIT : ERROR RETURN 
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Jon 600 REONES AST THAT SUSPENDS PROCESS §-§ sets 8¢:€2:8) LEYS SRCISYSPCNTRL MAR: 1 . (3) 
A SUBTITLE KERNEL AST THAT SUSPENDS PROCESS 
A 181; ¢ 
A 3 KERNEL AST ROUTINE TO SUSPEND PROCESS acc 
A 184 : CALLING SEQUENCE: E 
A 5 i (SAME EFFECT AS) DCLAST ASTADR=DELETE MODE=KERNEL EXE 
24 2 : INPUT PARAMETERS: EXE 
BR | Bitte i 
A 190 : OUTPUT PARAMETERS: EXE 
A 190} —= EXE 
A 193 : IMPLICIT INPUTS: EXE 
A 19 ; PCB OF CURRENT PROCESS LOCATED VIA SCHSGL_CURPCB EXE 
A 196 : IMPLICIT OUTPUTS: EX! 
A 197; PCBSV_SUSPEN = CLEARED EX! 
003A 198 : > WHEN PROCESS IS RESUMED GOT 
0 A i ; PCBSV_RESPEN = CLEARED cor 
A Be IPL 
A : ENABLE LOCAL_BLOCK Ive 
A 4 SUSPND: ; SUSPEND KERNEL AST ROUTINE NOD 
003¢ A 5 .WORD  “M<R2,R3,R4,R5> : SAVE SOME REGISTERS 
54  00000000'GF 00 ; é MOVL  G*SCHSGL/CURPCB,R4 : GET PCB ADDRESS NOP 
7E DC 004 08 10$:  MOVPSL (SP) : SAVE PSL ON STACK 
4 SETIPL #IPL$_SYNCH : DISABLE SYSTEM EVENTS 
09 24 a4 05—~=«O€S 48 19 aaa BBcC #PCBS0_RESPEN,PCBSL_STS(R4),30$ ; BR IF NO PENDING RESUME 
00 24 a6 0B ES 004 ig ~"“BBCC. = #PCBSV_SUSPEN,PCBSL_STS(R4),20$ ; CLEAR SUSPEND PENDING 
5 13 20$:  SETIPL #0 : DROP IPL TO ZERO 
04 33 1 RET : AND EXIT 
2A Ab 95 26 16 30$:  TSTB  PCBSB_DPC(R4) ; TEST FOR OUTSTANDING XQP ACTIVITY 
OF 1 5 1 BEQL 408 : BRANCH IF NONE (ALLOW SUSPENSION) 
0c AG 01 ga 5B 18 BICB2 #1,PCB$B_ASTACT(R4) > CLEAR KERNEL AST ACTIVE 
FF9E® 30 OOSF 21 BSBW © SCHSN : COMPUTE NEW AST LEVEL 
50 4 20 6 0 MOVL § #RSN$ ASTWAIT,RO : NOTE AST RESOURCE 
FF9B" 6 1 BSBW SCHSROALT : WAIT FOR AST 
dos 08 ; BRB 10$ : MAKE THE TEST AGAIN 
52 00000000" ¢F 0 6A 4 40$ MOVAL  G*SCH$GQ_SUSP,R2 : GET QUEUE HEADER ADDRESS 
FF8C* 1 5 BSB SCHSWAITR : WAIT WITH CLEAN 
CD Oo 2 6 BRB 16$ ! AND CLEAR RESUME PENDING FLAG 
76 : DISABLE LOCAL_BLOCK 
76 
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~SBTTL EXESRESUME - RESUME SYSTEM SERVICE 

; EXESRESUME = RESUME SYSTEM SERVICE 

: FUNCTIONAL DESCRIPTION: 

; EXESRESUME IMPLEMENTS THE RESUME SYSTEM SERVICE WHICH RESTARTS 
A SUSPENDED PROCESS. 


INPUT Sexy peg 2 


oe 
+ 


4 (AP OCESS IDENTIFICATION POINTER (PID) 
8(AP) = PROCESS NAME DESCRIPTOR POINTER 
R4 = PCB ADDRESS OF CURRENT PROCESS 


IMPLICIT INPUTS: 
PCB OF CURRENT PROCESS 
PCB OF TARGET PROCESS 
PROCESS HEADER OF CURRENT PROCESS 


COOOGOOOoOoOooooooooooooo 
OOOCCCOCCOOOCOCOCOOOCOOCOOooOooOo 


SNS NSS 


PAPAL APAAPA AA AA AA AAA AAA AAA AAA AA AAA AAA AA AAD 
FUN [OD ODNANE WIN O OONAUE WI 0 OONAUE WO OONOAUS Win 
Se Se Ge Se Se Ge Ge Ge Ge Se Ge Se Se Se Ge Se Se Se Se Se Se Se Ss SseSsetsSsSeSss 


SSNS SDP APA AAA AD TIS BB BPP PEP PWIA 


OUTPUT PARAMETERS: 
RO = COMPLETION STATUS 
@PID = PROCESS IDENTIFICATION OF TARGET PROCESS 
0 IMPLICIT OUTPUTS: 
0 NONE 
8 COMPLETION CODES: 
0 $_NORMAL = NORMAL SUCCESSFUL COMPLETION 
0 SS$"NOPRIV = INSUFFICIENT PRIVILEGE FOR REQUESTED OPERATION 
0 SSS"NONEXPR - NON-EXISTENT PROCESS 
07 SS$"ACCVIO = ACCESS VIOLATION ON WRITE DESTINATION 
807 SIDE EFFECTS: 
07 NONE 
, =~ 
7 EXESRESUME: : ; RESUME SYSTEM SERVICE 
001 7 .WORD “M<R2,R3,R4> t REGISTER SAVE MASK FOR R2-R4 
. “3 7 BSBB  =s- EXE SNAMPID : CONVERT AND VALIDATE 
31 50 f 7 BLBC RO, EXIT : EXIT IF ERROR OCCURRED 
52 02 A 007D MOVZBL #PRI$_RESAVL,R2 : SET PRIORITY INCREMENT CLASS 
00 24 A4 E2 80 BBSS  #PCBSU_RESPEN,PCBSL_STS(R4),10$ ; SET RESUME PENDING 
6 10$: RPTEVT RESUME : REPORT RESUME EVENT 
20 «11 00 9 BRB EXITN : AND TAKE NORMAL EXIT 


OUTPUT PARAMETERS: 
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5020500 ENESHIBER » HIBERWAYE SYSTEM SERVICE BrSEE bbe BSiSarhe LeNCMeS Maceo Nokon, = Page 8 
n .SBTTL EXESHIBER = HIBERNATE SYSTEM SERVICE 
BB ; EXESHIBER = HIBERNATE SYSTEM SERVICE 
BB ; Funeri pat? D SCRIPTION: 
BE ; PLEMENTS THE HIBERNATE SYSTEM SERVICE WHICH 
BB : Braces Ne-P PRoerSe IN A WAIT STATE, HIB , UNTIL IT 
BB : 18 RE-AWAKENED BY A WAKE SYSTEM SERVICE. ASTS MAY BE DELIVERED 
38 ; WHILE THE PROCESS IS IN A HIBERNATE STATE. 
8 ; 
B > CALLING SEQUENCE: 
: CALLG  ARGLIST,EXESHIBER 
B 291; 
92 ; INPUT PARAMETERS: 
3 ; R4 = PCB ADDRESS OF CURRENT PROCESS 
95 : IMPLICIT INPUTS: 
96 : ROCESS CONTROL BLOCK(PCB) OF THE PROCESS ISSUING THE HIBERNATE 
3 ; YSTEM SERVICE. 
99 : 


AANA AA AAA NAHM AA. WA A. AAAI AIAIGIPIPIPIPINPIPIPIPIPIPIPOPOPIPIPIPOPUNININOPONINUND EW 
OOOOooocosa 


PAD OOD NAME WIN 2 OOD NA MNES WIN OS OD NA NEW 0 ODNA UE WN OOOONO 


OBE 
086 
ote RO = COMPLETION STATUS CODE 
0 IMPLICIT OUTPUTS: 
oe NONE 
COMPLETION CODES: 
i SS$_NORMAL = NORMAL SUCCESSFUL COMPLETION 
B 309 ; SIDE EFFECTS: 
1 THE PROCESS WILL BE PLACED IN A WAIT STATE UNTIL EITHER 
088 IS DELIVERED OR A WAKE REQUEST IS MADE. 
1 => om 
i 
16 EXESHIBER:: ; HIBERNATE SYSTEM SERVICE 
001¢ 1 WORD ANSRE-RS RG ,R4> ; REGISTER SAVE MASK FOR R2-R4 
1 SETIPL : BLOCK SCHEDULING EVENTS 
02 24 Ad o¢ £7 1 BBCCI ppcaso SUAKEPEN, PCBSL_STS(R4) 108 ; CHECK FOR VENDING WAKE 
é i 3 BRB ; AND RETURN TO C 
97 10$ : MUST HIBERNATE 
52 00000000" ¢F OF 97 MOVAL G*SCHS$GQ_HIBWQ,R2 : SET ADDRESS OF WAIT QUEUE HDR 
FFSF" 9E BRW SCHSWAIT : AND WAIT 
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yon-600 ESWAKE = WAKE SYSTEM SERVICE "er See obs BSiSaiba LENSES Maceo Oso, «Page 8. Tab 
.SBTTL EXESWAKE - WAKE SYSTEM SERVICE 
EXESWAKE = WAKE SYSTEM SERVICE 


ATE STATE 


N 

D. 
BERNATING, 
HIBERNATE 


CALLING SEQUENCE: 
CALLG ARGLIST,EXESWAKE 


INPUT erry pet} 
P) = OF PROCESS TO WAKE 
IPTOR 


IMPLICIT INPUTS: 
PCB OF CURRENT PROCESS 
ALL PCBS LOCATED BY THE VECTOR @SCHSGL_PCBVEC 


OUTPUT PARAMETERS: 
RO - COMPLETION STATUS CODE 
@PIDCAP) = PROCESS IDENTIFICATION (PID) OF PROCESS AWAKENED 


IMPLICIT ibe ALE 
PCBSV WAKEPEN BIT IN PCBSL_STS or —— PROCESS WILL BE 
SET iF PROCESS IS NOT HIBERNATIN 


COMPLETION CODES: 
$_NO 


PVR o Se Se Se Se Be Se Be Ss Ge Bs Be Ge Ge Ge Bs Ge Be Ss Ge Se Gs Ss Se Ss Ss Ge Ss Ss Ss See Se Sse Se Sse Se Se Se Ssetets 


ROOD NAMEN DO ONA NE WWIN SO OOO NAN EWI SO OD NAME WO ODNOAU EWN OOONID 


BOO9 09 SI SINISE SNS SNIP PA AAA AAA AMI PPP LL 


SS RMAL = NORMAL SUCCESSFUL COMPLETION 
SS$"NONEXPR = NON-EXISTENT PROCES 
SS$~NOP RIV NO PRIVILEGE FOR ATTEMPTED OPERATION 
SSS"ACCVIO = ACCESS VIOLATION ON WRITE DESTINATION 
SIDE EFFECTS: 

THE TARGET PROCESS WILL BE CHANGED TO AN EXECUTABLE STATE, 
COM OR COMO, IF IT IS IN A HIBERNATE STATE A 
RESCHEDULING WILL BE INITIATED IF NECESSAR 

XESWAKE:: : WAKE SYSTEM Pome 

001¢ “WORD “M<R2,R3,R4> : SAVE MASK 
0 1 BSBB EXE SNAR Pip : CONVERT NAME TO PID 

; RO = SUCCESS INDICATOR 

; R1 = PID CORRESPONDING TO NAME STRING 

; R4 = PCB ADDRESS IF NAME WAS FOUND 

6 50 5 BLBC ~—- RO EXIT : CONTINUE IF PROCESS LOCATED 
FF55" 30 BSBW = SCHSWAKE ; WAKE PROCESS BY PID 
EXITN: : EXIT HIBERNATE SERVICE 
50 01 3¢ MOVZWL #SS$_NORMAL,RO : SET NORMAL COMPLETION 

EXIT: : RETURN WITH RO SET 

SETIPL #0 : ENABLE 
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BBs _ RET ; AND RETURN TO CALLER 
B 5 
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SYSPCNTRL PROCESS CONTROL SERVICES 16-SEP~1984 02:25:01 VAX/VMS Macro v04-00 Page 1 
502-600 EXESHAPIO - Ob ERY PROCESS NAME TO PID g- 3-1 382 86:83:81 YOYS SRCISYSPCNTRE RAR: 1 - 3) 
58 413 0008 444 BEQL  GOTPID ; NONE SPECIFIED Use COMMON EXIT 
DODA «= 445-208: + MUST LOOK UP PROCESS NAME 
HODA 44g IFNORD #8,(R3),ACCVIO : CHECK DESCRIPTOR FOR READABLITY 
52 § 7D O0E0 44 mova —s_- (R$), R2 ; GET DESCRIPTOR 
DOES «44 TSTw 3s R2 t AND CHECK FOR ZERO LENGTH 
4 DOES «44 BEQL IVLNAM : NOT A VALID NAME STRING 
52 OF : DOE? 4 CMPW 3 s#15,,R2 + CHECK FOR MAXIMUM LENGTH 
C 1F OOFA 4 BLSSU  —IVLWAM : NOT A VAL 1D NAME STRING 
DOEC 4 IFNORD R2,(R3),ACCVIO : ACCESS VIOLATION IF STRING NOT READABLE 
50 op OOF2 4 USHL R ; SAVE PID ADDRESS 
50 O0000000°EF DO OOF4 4 MOVL § SCHSGL_MAXPIX,RO : INITIALIZE PROCESS INDEX 
DOFB 455 PIXLOOP: ; LOOP FOR EACH PROCESS INDEX 
51 O00000000'FF40 0 bore 4 6 MOVL  @L“SCHSGL PCavECCRO] R1 : GET PCB ADDRESS FROM VECTOR 
00BE C4 O0BE C1 a 4 CMPW © PCBSW_GRPTR1) ,PCBSW_GRP(R4) ; COMPARE GROUP NUMBERS 
1 A 4 g BNEQ NEXTPIX : NOT SAME GROUP, NEXT PIX 
70 a1 52 9 45 CMPB = s«R2,, PCBST_LNAME(R1) ; COMPARE NAME LENGTH 
12 46 BNEQ ON : DIFFERENT LENGTH 
F 88 11 46 PUSHR #*M<RO.R1,R2,R3> : SAVE REGISTERS FOR CMPC3 
71 a1 63 52 7 ee CMPCS §=R2, (R35 ,PCBST NAMES (R15 : COMPARE TEXT OF NAME 
F BA 119 46 POPR #*M<RO,R1,R2,R3> ; RESTORE REGISTERS 
11 13 0118 464 BEQL § GOTNAM : FOUND A MATCHING PROCESS NAME 
11D 465 NEXTPIX: : STEP TO NEXT PROCESS 
pbB SO 6F4 «6O011iD:SCG : SOBGEQ RO,PIXLOOP + UPDATE INDEX AND TRYA AGAIN 
gE dS 01 9 46 TSTL (SP)+ + CLEAN PID ADDRESS FROM STACK 
; Ww é ifs BRB NONEX : EXIT WITH NONEXISTENT PROCESS STATUS 
124 470 ACCVIO: : ACCESS VIOLATION 
50 (0c 3¢ 124 471 MOVZWL #SS$_ACCVIO,RO + SET ERROR CODE 
0 7 Ave RSB : AND EXIT 
1 é 474 IVLNAM: 3 INVALID NAME 
50 0154 BF 3 1 475 MOVZWL #SS$_IVLOGNAM,RO : SET ERROR CODE 
p 476 RSB + AND RETURN 
51 601 00 1 478 GOTNAM: MOVL PCBSL_PID(RI) RI : GET FULL PID FOR NAME 
50 8ED0 01 47 POPL R : RESTORE PID ADDRESS 
1 4 6 GOTPID: $ VERIFY PID AND CHECK PRIV 
1 4 SETIPL #IPL$_SYNCH : BLOCK SYSTEM EVENTS 
52 51 3c 01 4 2 MOVZWL Ri, + EXTRACT PROCESS INDEX 
00000000°EF 52 01 01 4 CMPL - R2, SCHSGL_MAXPIX : TEST AGAINST MAXIMUM VALUE 
A 0142 484 BGTRU NONEX $ NONEXISTENT IF GTRU THAN MAXPIX 
52 "FF42 «600 «(014460485 MOVL aL “SCHSGL PCBVECCR2],R2 ; GET PCB ADDRESS 
A p 4C 4 é CMPL  R1,PCBSL_PID(R2) : CHECK FOR VALID PID 
1 4 BEQL VALPID : YES 
1 488 NONEX: : PROCESS NON-EXISTENT 
50 O88 8F 3 1 4 MOVZWL #SS$_NONEXPR,RO : SET ERROR STATUS 
1 4 RSB > AND RETURN TO CALLER 
0080 ¢4 0080 ¢2 1 ; t wrens CMPL PCBSL_JIB(R2),PCBSL yipckao ee i tt Gre Soe, CINE)? 
° 15F 4 BEQL RETURR ’ -"s 1F'SO, ALLOW MPR I THOUT PRIVILEGES 
00BC C4 0B p 1 4 CMPL PCBSL_UIC(R2),PCBSL_UIC(R4) ; DOES PROC ss HAVE SAME vic? 
1 4 BEQ RETURR : IF‘SO ALLOW WITHOUT PRIVILEGES 
146A 4 6 IFPRIV WOR D + RETURN R4 : SUCCESS IF WORLD PRIVILEGE 
OOBE C4  O0BE C2 a 1 9 4 CM PCBSWGRP(R2S ,PCBSW_GRP(R4) ; ARE GROUP NUMBERS QUAL 
C 1 4 BNEQ  WNOPRI ; IF’NOT, NO PRIVILEGE 
179 4 IFNPRIV GROUP ,NOPRIV,R4 + ERROR {fF NOT GROUP PRIV 
17F 500 RETURN: : SUCCESSFUL EXIT 
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SERVICES 16-SEP-1984 02:25:01 YAX/VMS Macro V04-00 P 1 
° CONVERT PID TO OTHER P 8 3Eb=1 982 83:82:81 USYS SRCTSYSPCNTRE MAR: 1 ae ( 
‘ «SBTTL EXESxPID_TO_xxx = CONVERT PID TO OTHER PID OR PCB ADDRESS 
FUNCTIONAL DESCRIPTIONS: 


EXESIPIO_TO_PCB - convert internal pid to pcb address 
Se ip To-eGe = convert extended bid to beb address 
XESIPID_TO_EPID = convert internal pid to qutondod pid 
EXESEPID_TO_IPID = convert extended pid to internal pid 
CALLING SEQUENCE: 
JSB/BSB EXESxP1D_TO_xxx 
INPUT PARAMETERS: 
RO - input pid 
IMPLICIT INPUTS: 
@SCHSGL_PCBVEC = VECTOR OF PCB ADDRESSES 
SCHSGL_PIXWIDTH = WIDTH OF PIX FIELD IN EXTENDED PID 


OUTPUT PARAMETERS: 
- output pid or pcb address, 0 if any problems 
CONDITION CODES = set according to the value in RO, so that any call 
can be followed by a BEQL without another test 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Non-paged code and data, no page faults possible. 


Callers of these routines must be prepared for the routines to save 
register R1 through R5 to allow for future additions. For example, 
a BLISS Linkage declaration of 


LINKAGE 
pid_call = JSB (REGISTER=0) : PRESERVE (1,2,3,4,5) 
NOTUSED (6,7,8,9,10,11); 


will force the enclosing procedure to save R2-R5 in the procedure 
entry mask. 


3¢ 

; Convert an extended PID to a PCB address. We will first convert the EPID to an 
3; IPID, men convert the IPID to the PCB address. The condition codes will be set 
3 according to the value in RO. 


EXESEPID_T0_PCB:: ; CONVERT EXTENDED PID TO + ADDRESS 
6S88 FRESEPID_TO_IPID ; GET THE IPID INR 
BEQL ; LON'T CONVERT THE EPID 

108 B28e EXESIPID_TO_PCB ; CONVERT THE IPID TO THE PCB ADDR 


3¢ 
3; Convert internal PID to PCB address. Return 0 if the input IPID does not match 
; the IPID stored in the corresponding PCB. Set the condition codes according to 


4 
2) 


Sts 


I 6 1 


SYSPCNTRL PROCESS CONTROL SERVICES -SEP-1984 02:25:01 VAX/VMS Ma v04- 2 
voe-000 EXESHPID TO_xxx = CONVERT PID TO OTHER P ‘ScSEP=lonG OS:Se:06 Yerseacteyspcnerigar;1  Paee 13, 
3; the presence of a returned address in RO, so that the BS 
tbe ore onge e BSBx can be followed by a 
EXESIPID_TO PCB:: ; CONVERT INTERNAL PID TO PCB ADDRESS 
00000000 ' EF iH CupQ RO, SCHSGL_MAXPIX : Te AGAINST MAXIMUM VALUE 
A BctRu 108 ; NONEXISTENT IF GTRU THAN MAXPIX 
po 9 PUSHL R 3 SAVE A_COPY OF THE joie 
ob: MOVZWL R 0 3; EXTRACT PROCESS INDEX FIELD 
50 00099 O'FFS D OVL asCH$GL PoByECeRg) .RO ; MOVE PCB ADDRESS TO RO 
E 60 A CMPL P BSL _PTOCR », (SP)+ 3; DOES THE PID IN THE PCB MATCH? 
g BNEQ 1 3 NO MATCH, RETURN 0 ADDRESS 
0 p 4 STL R : SET THE CONDITION CODES 
50 Be § 10$: CLRL RO 3 NONEXISTENT PID, RETURN ZERO 
5 8 RSB 
34 
3 Convert an extended PID to the internal PID. Return 0 if the EPID refers to 
9 : another node. Do not check that either the EPID or IPID are valid. 
4 EXESEPID TO_IPID:: 3 CONVERT EXTENDED PID TO INTERNAL PID 
06 6B PUSAR #*M<R1,R2> 3 SAVE SOME WORKING REGISTERS 


; WE WILL EXTRACT THE NODE FIELD FROM THE EPID TO SEE IF THIS IS FOR THE LOCAL 
; NODE. WE WILL_INCLUDE THE WILDCARD BIT IN THIS TEST. VERIFY SOME ASSUMPTIONS 
; ABOUT THE LOCATIONS OF THESE FIELDS. 


0000000a NODE_WIDTH = PCB$S_EPID_NODE_IDX+PCB$S_EPID_NODE_SEQ 

ASSUME PCBSV_EPID WILD EQ - : CHECK THAT WILD BIT IS RIGHT 
<PCBSV_EPIB NODE IDX + NODE_WIDTH> ; AFTER NODE FIELDS 

ASSUME PCB$V_EPID RODE SEQ EQ - - AND SEQ IS RIGHT AFTER IDX 
<PCBS0_EPIB_NODE_IDX + PCBSS_EPIb_NODE_IDX> 

51 50 0B 15 EF EXTZV #PCBSV_EPID_NODE 0x - ; MOVE NODE + WILD TO R1 

#<NODE~WIDTA+1>,RO,RI 

BEQL 108 ; TREAT NODE ZERO AS LOCAL NODE 2? 


09 1 : 
51 00000000" EF a CMPW Sp ROeU LOCAL NODE -Rt ; IS IT THE LOCAL 
1D $ 


; NOT LOCAL, CAN*T MAKE AN IPID 
; EPID IN RO IS FOR LOCAL NODE, EXTRACT THE PIX AND SEQUENCE NUMBER TO FORM IPID 


51 0000' EF 09 10$:  MOVL  SCHSGL_PIXWIDTH,R1 ; LOAD WIDTH OF EXTENDED PIX FIELD 
SS. SUBL3 R1,#@PCB$S EPID_PROC,R2 : AND WIDTH OF THE SEQ NUM FIELD 
te EXT2V R2.ROLR : Re 1$ LONGWORD SEQ NUM 
9 EF EXTZV #98 RO.R : RO IS LONGWORD PIX 
F 10 FO INSV R2,#16,815,R0 : INSERT SEQ NUM IN HIGH WORD 
: WHICH MAKES AN IPID IN RO 
06 BA 20$:  POPR #*M<R1,R2> ; RESTORE REGISTERS 
5 RSB : CONDITION CODES SET FOR VALUE OF RO 
; COULD NOT TURN EPID INTO AN IPID, RETURN AN IPID OF 


0 
30S: CLRL 88 ; RETURN ZERO P 
BRB 208 ; RESTORE REGIS 


ws 
“oOo 
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RS AND RETURN 
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voe-600 EXESKPID.TO.xxx = CONVERT PID TO OTHER P 'S-SEP-19B¢ OS:Sb:04 LSvsvencTavSPenTRicman;1 "28 8, 


1F 3; Convert an ite to an EPID. We do not check thes the giv is votre, The local 
1F + node is goyed nto the node field 9 the EPID, he seq numb ol ene = of gpe IPID 
if ;_are moved into the PID. The condition codes "ost ect the final va is of 
1F i 10. EPID:: 3 INTERNAL PID 19 XTENDED PID 
8 0 1F RO 3; TREAT A ZERO PID AS r. SPECIAL CASE 
1F tir 10$ 8 ZERO. WE DON'T TOUCH { 
3 1F PUSHR #*M<R1,R2,R3> 3: SAVE SOME WORKING REGISTERS 
53 1FB MOVZWL RO, R 3: R3 IS LONGWORD PIX 
50 £809 f F a3 ASHL #- 16,0 3; ROIS hevoenee SEQ NUM 
51 ‘EF OD MOVL sch 6. si xwIDTH RI : LOAD WIDTH OF EXTENDED PIX FIELD 
H 4 C A t SUBL3 ,#PCBSs PID_ WeROC. R2 ; AND THE WIDTH OF THE SEQ NUM FIELD 
3 3 F ; 4 INSV 4 *R1, ; INSERT SEQ NUM BESIDE PIX 
53 OA 15 OOOO000'EF fF 4 INSV schs LOCALNODE, INSERT LOCAL NODE INTO THE EPID 
1C 644 PCBSV “EPID tNODE. IDX, wndve WIDTH, R 
50 33 DO O21C 645 VL 4 ; RETURN fHE EPID IN RO 
E 4 f rf POPR #°A<R1,R2,R3> 3; RESTORE REGISTERS 
5 744 10$: $B ; N.B. COND CODES SET ON VALUE OF RO 
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E 
I RO 
LF. ALL SUCH LOGI 
ROUP NUMBER OF ys 


p++ 

; FUNCTIONA PTION: 

; EXE MPLEMENTS TH 
R H ALLOWS A P GICAL NAME 

LY QUALIFIED 

ING THE SAME 

T GROUPS. 


DESCR 
ETPRN 
CE WH 
TSELF 
BY THE GROU 

LOGICAL NAME TO BE USED 


CALLING SEQUENCE: 
CALLG ARGLIST,EXESSETPRN 


INPUT PARAMETERS: 
O4(AP) = ADDRESS OF PROCESS NAME STRING DESCRIPTOR 


= 
R4 = PCB ADDRESS OF CURRENT PROCESS 


oo 
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88 : 
i ; IMPLICIT INPUTS: 
669 : SCH$GL_CURPCB = POINTER TO PCB OF CURRENT PROCESS 
670 ; @SCHSGC_PCBVEC - VECTOR OF ALL PCB ADDRESSES 
ere : OUTPUT PARAMETERS: 
th 3 NONE 
675 :; IMPLICIT OUTPUTS: 
676 : PCBS$T_NAME IN CURRENT PCB IS FILLED WITH THE SPECIFIED NAME 
67 ; PROVIDED NO ERROR HAS OCURRED. 
4 : SIDE EFFECTS: 
2 ? : NONE 
6 ; + COMPLETION CODES: 
; SS$_NORMAL = NORMAL SUCCESSFUL COMPLETION STATUS 
684 : SS$-ACCVIO = ALL OR PART OF NAME STRING IS INACCESSIBLE FOR READ 
685 : SS$-IVLOGNAM = ILLEGAL LOGICAL NAME STRING LENGTH (>15) 
6 $ ; SS$"DUPLNAM = DUPLICATE PROCESS NAME WITHIN 
é ; EXESSETPRN: : : SET PROCESS NAME 
OOF 91 .WORD “M<R2,R3,R4,R5,R6,R7>  : SAVE REGISTERS R2- 
D 9 MOVL PRCNAMCAP) RS : GET ADDRESS OF PROCESS NAME 
1 8 3 BNEQ 3=sS5$ $ WAS SPECIFIED 
D A 4 CLRL PCBST_LNAME(R4) : CLEAR NAME FIELD OF PCB 
11 D 99 BRB : AND EXIT WITH NORMAL STATUS 
: 5$ IFNORD #8, (RS) ,80$ : CHECK ACCESS FOR DESCRIPTOR 
4 3 mova (RS) ,=( §P) : PUSH DESCRIPTOR ON STACK 
e TSTW (SP) + CHECK FOR ZERO LENGTH STRING 
A BEQL 108 : INVALID NAME 
IFNORD (SP),@4(SP),80$ : PROBE ENDS OF STRING 
1 7 CMP (SP) #15 : CHECK FOR MAXIMUM LENGTH 
B 024 BLEQU 208 : IF LEQU, WITHIN LIMIT 
C 48 10S: ROVZUL #SS$_IVLOGNAM,RO : INVALID PROCESS NAME STATUS 
06 4F 5 308: MOVL  § SCHSGL_MAXPIX,R6 : SET MAXIMUM PROCESS INDEX 
D 5 6 30$:  MOVL aL*SCHSGL_PCBVECCR6],R7 : GET PCB ADDRESS 
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16-SEP-1984 02:25:01 VAX/VMS Macro V : 
tae i EXESEETPRN SET BRUCE RS NAME g-8 sats yi 86:83:81 LOS RCISTSECNTRL AR: 1 (8) 
OOBE C7 O0BE C4 5D ? CMPW Pc SU_GRP(R4) ,PCBSW_GRPCR7) : CHECK FOR SAME GROUP 
E i 4 ONES ¢ P),PCBST_LNAME(R7) § : COMPARE LENGTHS 
sede 4 . ; Q : . * NOT EQUAL, TRY ANOTHER 
7 06 BE ! ¢ 4 ete {S).a4(SP),PcaST LNAMES (NZ) ; COMPARE NAMES WITH COUNTS 
a ; 1 Hits 2 $ : CONTINUE FOR ALL PCBS 
DE rh 4 408: SOBGEQ R630 i CONTI 
1 ; , 
73 ot BRED 15 sos: EMR REE CE tlle emo 
pe BR BG Bp es TE, i crer tee esi catl MMOOPL ro we 
cadagd an BF 8 C i : 65$ nOVZUL #SS$/NORMAL.R ; SUCCESS UL Sana 
¢ : DUPLICATE NAME WITH 
50 0094 8F ¢ ac t 70$ ROVZUL #SS$_DUPLNAM,RO DUPLICATE | 
| 4 : ATION 
50 oc 3C $3 724 80$: peyeu. #SS$_ACCVIO,RO : AeCes vio. ERROR STATUS 
a a 
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PRI$_RESAVL 
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PRVSV~WORLD 
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SCHSGL_CURPCB 
SCHSGL-MAXPIX 
SCHSGL-PCBVEC 
SCHSGL—~PIXWIDTH 
SCH$GO-HIBWO 
SCH$GQ~SUSP 
SCHSGu LOCALNODE 
SCHSNEQLVL 
SCHSQAST 
SCHSRSE 
SCHSRWAIT 
SCHSWAIT 
SCHSWAITK 
SCHSWAKE 
SS$_ACCVIO 
SS$~DUPLNAM 
5$$_1VLOGNAM 
SS$_NONEXPR 
SSS"NOPRIV 
SS$-NORMAL 
SUSPND 
VALPID 
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REERRARH 
RERRAA 
RRRRREEE 
RARER 
RRRRRREE 
RRERARE 
RRERAEEE 
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; _Psect synopsis” 3 


PSECT name Allocation PSECT No. Attributes 

» OG. .« 09 ( on 0 ( 0.) NOPIC USR CON ABS ~ LCL NOSHR NO 
SABSS ( on ( 1.) NOPIC USR CON ABS LCL NOSHR 

AE XENONPAGED 0 ( 662.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR 


Phase Page faults CPU Time Elapsed Time 
Initialization 9 :00:00. iH 29 
Command processing 163 if 8; z ‘00; 983 
Pass 1 2 | :00:08.5 1s 1 $8 
Symbol table sort 0: ‘ $8 
Pass 2 141 : eel 4 
Symbol table output 11 : ‘ 00.14 
Psect synopsis output 0:00:00. 0: if 0 
Cross-reference output 0:00:00. 0: 8 0.0 
Assembler run totals 57 0:00:12. 0:00:27.1 


The york ing (86 Limit woe 1300 pages. 

4911 ayer (96 pages) of virtual memory were used to autier the intermediate code. 

There were 50 pages of symbol table space allocated to hold 807 non-local and 28 local symbols. 
726 source lines were read in Pass 1, producing 16 ob ect records in Pass 2. 

235 pages of virtual memory were used to define 22 macros. 


Sree seeconecneananemensceze > 


Macro Library name Macros defined 
_8255$DUA SYS.OBJJLIB.MLB; 1 1 
$532 $DUASB: FSS OBN2bAR 8 ALB;2 
TowAreet (all Libraries) 19 


909 GETS were required to define 19 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSPCNTRL/OBJ=OBJ$:SYSPCNTRL MSRCS$:SYSPCNTRL/UPDATE=(ENHS:SYSPCNTRL) +EXECMLS$/LIB 
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EXE NORD NOWRT NOVEC BYTE 
EXE RD WRT NOVEC BYTE 
EXE RD WRT NOVEC BYTE 
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